(appt-check): Clear appt-mode-string if we don't put something in it.

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 0efac2ec34ca7930d2aff47439f45084e3f31322..9368c1b4265ee71853b9963d9d0c6021b3d9ad12 100644 (file)
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -286,6 +286,8 @@ The following variables control the action of the notification:
                  (let ((diary-display-hook 'appt-make-list))
                    (diary))))
 
+           (setq appt-mode-string nil)
+
            ;; If there are entries in the list, and the
            ;; user wants a message issued
            ;; get the first time off of the list